home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / emul / conn246e / scripts / quarktau.scr < prev    next >
Text File  |  1993-07-24  |  3KB  |  129 lines
  1.  
  2. Thorsten Boehm@PB schrieb am 15.01.93 um 12:06:
  3.  
  4. # Coshi Script (von Thorsten Boehm @ PB) zum automatischen Tausch
  5. # mit einer Quark-Box.
  6. # Per Kommentar in einem Bin„rbrett bestellte Bin„rdateien werden
  7. # automatisch empfangen und im Import-Ordner von CAT abgelegt.
  8.  
  9. # Starten mit:  connect quarktau
  10. # connect MUSS durch OPTIONEN SICHERN in Connect.opt
  11. # das Fenster zum Port automatisch ”ffnen.
  12. # Machen sie in den n„chsten Zeilen Ihre Žnderungen
  13. # Bei langsamen Modems (2400 cps) muž ev. die Wartezeit
  14. # fr das OUTFILE erh”ht werden; und zwar in der Zeile:
  15. #     if ! waitfor -t 6M 'downloaden !'; then
  16. #                     ^^
  17. # Der Rest sollte dann auf jeder Quark laufen
  18.  
  19. maxtry=60
  20. sleeptime=15s
  21. box='Quark Paderborn'
  22. username='meinname'
  23. passwort='meinpasswort'
  24. sendfile=\''d:\dfue\cat\export\infile.zip'\'
  25. recepath=\''d:\dfue\cat\import\'\'
  26. logfilepath=\''g:\texte\dfue\quark\'\'
  27. logfilename=quark
  28.  
  29.  
  30. # Wird nach einem Protokollfehler und am Scriptende aufgerufen
  31. #
  32. #  $1 == Fehlerstring, der mit  alert  ausgegeben wird
  33. #        oder ein Leerstring (am Scriptende)
  34.  
  35. function ende {
  36.  
  37.    hangup
  38.    prot -off                  # Protokolldatei schliežen
  39.    if [ -n "$1" ]; then
  40.       bell 4                  # Fr einen vollst„ndig bedienungsfreien
  41.       alert 1 '[3]['"$1"'][Mist]' # Quarktausch den alert Befehl durch
  42.                               #   echo "$1" > $log_name
  43.    fi                         # ersetzen.
  44.    break -1                   # Mit quit wird Connect ganz verlassen
  45. }
  46.  
  47.  
  48. # Begin des eigentlichen Scriptes
  49. #
  50. #
  51.  
  52. if ! [ -f $sendfile ]; then
  53.    ende "Es gibt keine Datei zu senden"
  54. else
  55.    echo "Es kann losgehen"
  56. fi
  57.  
  58. source logname.scr
  59. gen_log_name $logfilepath $logfilename
  60. prot -asc $log_name
  61.  
  62.  
  63. dial -v -s $sleeptime -r $maxtry "$box"
  64. err=$?
  65. if [ $err -ne 0 ]; then
  66.    if [ $err -eq 9 ]; then
  67.       ende "Anwahl fehlgeschlagen| |Hey|Sie werden gerade|selbst Angerufen."
  68.    else
  69.       if [ $err -eq 3 ]; then
  70.          ende "Anwahl fehlgeschlagen| |Es war $maxtry mal|besetzt."
  71.       else
  72.          ende "Anwahl fehlgeschlagen| |Fehler bei der Anwahl."
  73.       fi
  74.    fi
  75. fi
  76.  
  77. echo "Wir haben eine Verbindung zu $box."
  78.  
  79. if ! waitfor -t 20 'druecken >'; then
  80.    ende "Die|$box|benimmt sich nicht|wie eine Quark"
  81. fi
  82.  
  83. sleep 50m
  84. send -n tausch
  85.  
  86. waitfor -t 30 'Username :'
  87. sleep 50m
  88. send "$username"
  89.  
  90. if ! waitfor -t 10 'Passwort :'; then
  91.    ende "Die Quark will mein|Passwort nicht haben."
  92. fi
  93.  
  94. sleep 50m
  95. send "$passwort"
  96.  
  97. if ! waitfor -t 30 'uploaden !'; then
  98.    ende "Die Quark ist eingeschlafen"
  99. fi
  100.  
  101. if ! upload $sendfile; then
  102.    ende "Der Upload wollte heute nicht"
  103. fi
  104.  
  105. if ! waitfor -t 6M 'downloaden !'; then
  106.    ende "Die Quark ist eingeschlafen"
  107. fi
  108.  
  109. if ! download -p $recepath; then
  110.    ende "Die Quark hat zwar meine|Daten, ich aber ihre nicht!"
  111. fi
  112.  
  113. # Auto-download Dateien empfangen
  114.  
  115.                             # Bei timeout wird $WAITID nicht ver„ndert
  116. set WAITID 0
  117. waitfor -t 20 'Danke fr Deinen Besuch' 'Download mit Zmodem starten'
  118. while [ $WAITID = 2 ]; do
  119.    set WAITID 0
  120.    download -p $recepath
  121.    waitfor -t 20 'Danke fr Deinen Besuch' 'Download mit Zmodem starten'
  122. done
  123.  
  124. if ! [ $WAITID = 1 ]; then
  125.    ende "Die Quark hat wahrscheinlich|ihren logoff-String|ge„ndert!"
  126. fi
  127.  
  128. ende ''
  129.